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1 ZTITLE ‘EDTSSYSVAX = VAX/VMS system specific eteroge. 
§ MODULE EDTSSYSVAX ( ! VAX/VMS sypten s ocrtit storage 
JOENT = 'v04-000' ! File: SYSVAX.832 Edit: JBS2034 
= 
5 BEGIN 
; leueennteneeneeneneerensnennncerereerenreereerentnetnntnnenententnnenntentens 
'e 

0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
00 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
0 'w ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH tint ee a 


; NCLUSION OF Y 
t* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
a 
® 
® 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
5 
® 
® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eRPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED SY DIGITAL. 


SooooooosSs 


POPIPIPINPINPININID 2 OO OO OS S| S| OOO 


Vee eR RRR AEA EAE AARAAAEAEAEAAA RTARTA AAA AAA AAAAEAEAAATAAARAAAeEEEEe 
' 


WAAR POPOPONONININONDYD 2 2 OS OO 


MEUM —OODNAUESWN OC DONOUSWN (ODO ONOUS Wh 


+¢ 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


This module contains system specific code for the VAX/VMS 
environment. 
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ENVIRONMENT: VAX/VMS only 
AUTHOR: Bob Kushlis, CREATION vATE: March 22, 1979 
MODIFIED BY: 


Bob Kushlis, 10-JUL-1979 
Convert the case of the file names. 
! John Sauter. 19-Dec-1980, 
racing. 

¢-007 - Regularize the headers. JBS 19-Feb-1981 

-004 - Allocate an event vee for the ‘‘working’’ message. and make it 

ancel ently its own timers, JBS 19-Feb-198, | 

-005 - Fix module header . in symbols. JBS 30-Mar-1981 

- Stop the ‘working’ message only if it is running. JBS 02-Apr-1981 
- 3 - Imp ement the virtual deallocation routine. TMV 6-Aug-81 

-008 - ED TSSALO NEAR hould return 1 if successful, 0 if not. 
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2-009 - Remove calts to LIBSSHOW_VM. JBS 21-Aug-1981 
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vOe=008 Declarations servant Me 12288-1982 93:32:18 HT eSumSastensceoiesacSsysvax.es2:1 2% (23 
im mY : 
; 138 ! : MESSAGE : VECTOR (12, BYTE] INITIAL (BYTE ("Bug check ')); ‘ 
; 16 1 1 OWN | : 
; 129 1 1 DEL_TIME : VECTOR (2) INITIAL (-5000000, -1), ‘ 
; 150 1 1 WORRING EFN | : 
ye 1007 WORK_MESSAGE_RUNNING : VOLATILE INITIAL (0); | : 
; 4 1009 1 : 
: 1546 1 9 1 MEM_USE : INITIAL (0) ! Currently allocated memory amount | ; 
; : : ! Limit on amount of memory to allocate : 

155 1011 1 MEM-LIMIT : INITIAL (1000000000) i Limit t of to allocat ; 
: 89 118 ; 
es 3 1014 1 ! EXTERNAL REFERENCES: ; 
Bees 3 
; 161 1017 EXTERNAL ROUT INE : 
; 196 1 18 1 EDTSSTI_WRSTR, ° 
; 1019 1 EDTSSOUT_FMTBUF, ° 
> 164 1020 1 EDTS$SC_POSCSIF, : 
; 165 1021 1 EDTSS$SC_ERATOEOL ‘ 
i 166 loge | EDTSS$TI-WRLN : NOVALUE, ; 
3 16 1 1 EDTSSFMT STR : NOVALUE, : 
; «168 1024 1 LIBSGET_VM, ° 
; 169 1025 1 LIBSFREE_VM, ‘ 
: 170 18 g 1 SYSSEXIT, : 
Bale 1 1 LIBSDATE TIME, ; 
3 1% 1028 1 LIBSGET_EF : 
; 1029 1 LIBSFREE_Ef ; | : 
: 4174 1030 1 : 
; #175 1031 1 !+4 : 
3 178 \} § : : Define the RABs to be used by EDT : 
TR BEY oom : 
: 180 1036 1 EDT$$Z_SYS_PRIRAB : $RAB_DECL, ; 
> 181 10 7 1 EDT$$2~SYS_JOURAB : $RAB-DECL, : 
3 ise 1 : 1 EDT$$Z2_SYS_CMDRAB : $RAB_DECL, : 
; HF 1% 3 : EDT$$Z_SYS_ALTRAB : $RAB_DECL; : 
; «185 1944 1€ —, . 
; «186 Hk 1 EDI SSA_FMT_WRRUT ! Output format routine : 
> (187 104 1 EDT$$G_MESSAGE_LINE i Command/message Line ; 
as 1044 1 EDTS$$G_SECOND : VOLATILE, ! Set to 1 once a second for WORKING message : 
3 Hh 44 + ok ! EDT$$G_WORKCOUNT; ' Counter to support WORKING message | : 
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he EDTSE INVER ERR = internal orrer ° 1 ~$0 71387 94:32:18 VIEKSUMGHASTERSCEDT SRC TSYSVAX.B32:1 _ (33. 


ZSBTTL ‘EDTSSINTER_ERR = internal error’ | 
| 


-TITLE EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific 
: storage 

-IDENT \v04-000\ 

-PSECT _EDTSDATA,NOEXE, PIC,2 


0D 00000 EDTS$T_HDEF_NAM:: 


.y 1 1 

Mm § 1 1 

$ i 1 1 GLOBAL ROUTINE EDTSSINTER_ERR ' Internal error 

: 136 : : : : NOVALUE = | 

; 19 1 1 !¢4 

: 19 1 j 1 | FUNCTIONAL DESCRIPTION: | 

: 4 1054 1: 

; 200 1055 1! If an internal error is detected in EDT, come here to 

; 9} ! § ! print a cryptic message and bail out. | 

; 3 1058 1 | FORMAL PARAMETERS: 

: 205 1 1 i NONE 

; 1061 1: 

; of j { IMPLICIT INPUTS: 

: 209 1 1 NONE 

; i: 1066 i IMPLICIT OUTPUTS 

: 21 1067 1: ; | 

es | | ia 

: 215 1990 1 | ROUTINE VALUE: | 

: $18 1o72 1 i NONE | 

: 18 1998 1 i 

: 21 1074 1 | SIDE EFFECTS: | 

: 220 1075 1! 

: 1 1976 1! Never returns to its caller. 

: $56 1075 1 | | 

> 226 1079 1. 

> 225 1080 2? BEGIN | 

F 6 1081 ¢ MESSAGES ((INTERERR)); | 

: 10 Z ? SIGNAL_STOP (EDT$_INTERERR); 

: 228 108%} END; ! of routine EDTSSINTER_ERR 
| 
| 


.BY 3 ; | 
42 4C 4B 26 3A 50 4C 45 48 24 53 59 53 00001 “ASCII \SYSSHELP: .HLB\ | 
07 00010 EDTSST_NDEF FILEs: | 
50 4C 45 48 54 44 45 00011 “ASCII \EDTHELP\ : | 
50 45 48 54 44 45 00018 EDTSST_HELP_NAM:: 
ASCII \EDTHELP\ : | 
O1F “BLKB 248 
117 -BLKB 
00000007 00118 EDT$S$G_HELP_NAMLEN: : 


F 5 
VAX/VMS system specific stora 16-Sep-1984 01:52:1 VAX-11 Bliss-32_V 
R - internal orrer a 1o=808=1 382 94:32218 DISKSVMSMASTER: tt + SRC SSYSVAN. B32;1 — (3S 


eeLsega™* —ESTRETANE 
LONG 7 , 
00000000 0011¢ EDTSSG_HELP SET:: 
00120 EDTSSZ_LBR INDEX: : 
06 00124 EDTS$T_CMD NAM_DEF1:: 
53 59 53 56 44 45 5 “ASCII = \EDTSYS\ : 
C EDTS$T_CMD_NAM_DEF2:: 


So 
oo 
oooo ooo 
oOo OOO 
—— 
rrr 
uw 


| 
44 65 2 3A 59 52 41 52 42 49 4C 26 53 59 53 i "ASCII \SYSSLIBRARY: .EDT\ : | 
0130 .BLKB 3 : 
0140 EDTSST_CHD NAM_DEF3:: | 
49 GE 49 56 44 45 0014) [ASCII \EDTINI\ : | 
04 00148 EDTS$T_CMD NAM_DEF4:: | 
54 44 45 2€ ose "ASCII \.EDT\ ; 
20 20 20 68 63 65 68 63 20 67 75 42 00750 MESSAGE ~ASCII \Bug check \ ; 
FFFFFFFF FFB3B4CO OU15C DEL_T 
“LONG 5000000, -1 F 
00164 WORKING EN: ; 
00000000 00168 WORK -MESSAGE RUNNING: 
90900000 QO16C MEM_USE:.LONG 0 : 
9ACAOC, 00170 MEMZLIM 
LONG 1000000000 : 
00174 ENT$$Z sis PRIRAB: : 
.BCKB 6 
001B8 EDT$$Z_SYS_JOURAB: : 
-BCkKB 68 
OO1FC EDT$$Z_SYS_CMDRAB: : 
-BCKB 6 
00240 EDT$$Z_SYS_ALTRAB:: 
-BCKB 68 
.EXTRN EDTSSTI_WRSTR, EDTSSOUT_FMTBUF 
“EXTRN EDTS$SC~POSCSIF 
“EXTRN EDTSS$SC_ERATOEOL 
“EXTRN EDTSSTI-WRLN, EDTSSFMT_STR 
“EXTRN LIBSGET-VM, LIBSFREE_V | 
“EXTRN SYSSEXIT, LIBSDATE TIME | 
“EXTRN LIBSGET EF, LIBSFREE_EF | 
“EXTRN EDTSSA_FMT WRRUT 
-EXTRN EDTSSG"MESSAGE_LINE | 
“EXTRN EDT$$G~SECOND, EDT$$G_WORKCOUNT | 
SEXTRN EDTS_IATERERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | 
0000 .ENTRY EDTSSINTER_ERR, Save nothin : 1049 
000000006 ar -’oe Hoots BUSHL #EDTSINTERERR’ . 1082 | 
| 


, 


ee hae [ -ta ne if-se opr 1Re 5:32:18 4 SEcbumGuaStensceot secSsvsvax.e32:1° 2% (35. 


000000006 00 01 fe 80008 cays #1, LIBSSTOP 


1083 


; Routine Size: 16 bytes, Routine Base: _EDTSCODE + 0000 


; 229 1084 1 
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VAX = VAX/VMS system specific storage 16 b-sep 1384 9}: 33: ' VA 
SEX] = exit back to the operating syst 1e-8ep-1 74 DI 


| 
| 
ZSBTTL "EDTSSSYS_EXI = exit back to the operating system’ | 


ERT ESTE VAR 


32 v4.0-7 p | 
RCEDT SRCTSYSVAX.B32;1' 2" cas 


1 5 
‘ sonstaty poyt ine EDTSSSYS_EXI (¢ ! Exit back to the operating system 
i Exit status code 
5 OVALE = 
1 eo 
38 j Pomcr son. DESCRIPTION: 

re My Final clean-up 
$8 { FORMAL PARAMETERS: 
44 098 STATUS Exit status code. 1 = normal. 
45 099 
re IMPLICIT INPUTS: 


BVVS 


E 

E 
5 1 1 
: 1089 
; 1088 | 
; 1 1 | 
3 1 1 
; 1 1 | 
r 1 1 | 
; 1 1 | 
; 1 1 | 
; 1 1 
; 1 1 
; 1 1 
3 1 1 
5 11 1 
; 1101 1 
:  $t8 110 i 
; 250 1104 1! IMPLICIT OUTPUTS: 
> 251 1105 1 
: $38 He aster 
> 254 1108 1 | ROUTINE VALUE: 
: 255 1109 1 
: $28 ae yy _ 
; 38 1118 | | SIDE EFFECTS: | 
: 260 1114 «1 Deallocates all heap memory 
2 eee 
: 26 117 1 
i 364 1118 BEGIN | 
: 66 1120 EXTERNAL ROUTINE | 
; 67 1 1 EDTS$TI_DEAS; 
> 269 1 § MESSAGES { (EDI TORABO) | 
3; ar 1124 EDTSSDE LHEAP (); ! Deallocate all heap storage | 
3 4 1} 5 Orsay ABEAS QO; i Deassign the terminal channel 
; 75 , 1 8 IF EDTSSTR_ ACT | 
> 275 U 11 3 BEGIN 
: $f Use LOCAL | 
; 28 - 1 g TRACE_STATUS; 
: 280 U 11 EXTERNAL ROUTINE 
; 81 ¥ 1 5 EDT$STR_CLS : ADDRESSING_MODE (GENERAL); 
; 5 U 11 EXTERNA L 
i 984 ’ + EDTSSL_TR_INFLG; | 
; U 1140 SSTRACE (EDTSSTR_EXI, EDTSSTR_SEXI, 0, 0): 
: 28 U 1141 TRACE_STATUS = EDTSS$TR_CLS (EDTSSL_TR.INFLG); 


COTES TR VAR 


Routine Size: 


DISSYSVAX = VAX/VMS system specific storage 15-50 Sep-1 VAX-11 Bliss-32 V 
EBT Sisrs EX] = exit bac to the operating syst 1 =3007 138% 93: 3g: ig Disk KSVMSMASTER: 
114 
1148 IF ( NOT .TRACE_STATUS) THEN SIGNAL_STOP (.TRACE_STATUS) 

1145 END; 

a 

1108 IF ( NOT .STATUS) THEN SIGNAL_STOP (EDTS_EDITORABO) ; 

1150 END; ! of routine EDT$$SYS_EXI 


~-EXTRN EDTSSTI_DEAS, EDTS_EDITORABO 


0000 00000 SENTRY EDTSSSvs XI, | Save nothing 
0000v CF 00 FB 0000 CALLS #0, EDTS$SDEAALLHEAP 
000000006 60 00 FB 0000 CALLS 10; EDTS$ Ti Be 
D 04 AC €8 000 BLBS § STATUS 
000000006 8F DD 0001 PUSHL mers 5 EI TORABO 
000000006 00 01 FB 0001 CALLS , LTBS$STOP 
04 OOO1F 18: RET 


32 bytes, Routine Base: _EDTSCODE + 0010 


1151 1 


tt + sac Ssysvax. 832;1 
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ED Tse T.DATE = return the date as an ASCII st 1 ~30071 382 93:32:18 DLSKSVMGHASTERSCEDT. SRCTSYSVAX.B32:1 ° (5) 
§ ZSBTTL "EDTSSGET_DATE = return the date as an ASCII string' 
4 GLOBAL ROUTINE EDTSSGET_DATE ( ' Return the date as an ASCII string 
5 LEN ' Length of the buffer to return the date in 
$ BUFFER i Address of the buffer 
) : NOVALUE = 
3 'oe 
29 FUNCTIONAL DESCRIPTION: 
es i Return the date and time as an ASCII string. 
65 
LEN Length of the buffer in which the date is returned 


' 

a 

1 

i 

1 

i 

BUFFER Address of that buffer. 
IMPLICIT INPUTS: 

NONE 

; IMPLICIT OUTPUTS: 

; NONE 

ROUTINE VALUE: 

NONE 

; SIDE EFFECTS: 

' 
' 
' 


LOCAL 
DATE_DESC : BLOCK (8, BYTE), 
DATE _TIME_STATUS; 


i FORMAL PARAMETERS: 
MAP 
BUFFER : REF VECTOR C, BYTE); 


le ce ce ce el ce ce ce el el ce a el el el el ce ce ee 


'¢ 
: Set up the descriptor for the LIBS routine 
DATE_DESC REA) = 24; 


| 
D : 
DSC$B_CLASS) = OS CSe ECLARS S; 
DSCSA_POINTER) = BUFFER (13; 


'¢ 
: Now call the routine to get the date and time as string 
DATE_TIME_STATUS = LIBSDATE_TIME (DATE_DESC); 


LSSP oR SSE SSS RON SSE LEAP AR AS aI SS ENS. 
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} Make sure we got a good status from the Library routine else stop 
1 


IF ( NOT .DATE_TIME_STATUS) THEN SIGNAL_STOP (.DATE_TIME_STATUS); 


BUFFER i fe ' begin with a space 
BUFFER St = ic’ '; ! and end with S space 


IF (.BUFFER C1) EQL &C° *) 
THEN 
BEGIN 
HE ta8. BUFFER (2), BUFFER (1)); ! shift left one space 
. = 21; 
END 
ELSE 


-LEN = 22; 
END; ! of routine EDTS$GET_DATE 


4 et 
CUPWMISOOONOAPUNUMOD Ow 


RoPoRoToRoToTorororororofponfeorrnn OC 
ROROROPONORORD) es 


a a bt tt 


003¢ 00000 ENTRY EDTSSGET_DATE, Save R2,R3,R4,R5 
SE 04 C2 90002 SUBL2 #4, S$ 
01060018 8F DD 0000 PUSHL  #17694744 
52 08 AC 00 49 tg MOVL BUFFER, R2 
04 AE 01 Ad 9E O000F MOVAB 1(R2), DATE_DESC+4 
5E oD 4 bp PUSHL SP 
000000006 00 or FB 00016 CALLS #1, LIBSDATE_TIME 
09 0 €8 0001D BLBS § DATE_TIME_STATUS, 1$ 
50 dD 00020 PUSHL DATE _TIME_STATUS 
000000006 00 01 FB 900 2 CALLS #1, CIBS$STOP 
62 20 90 00029 1$ MOVB é. 
15 Ad 0 90 0002C MOVB «#3 21(R2) 
20 01 A2 91 00030 CMPBs«d1(RO), #3 
0B fs 00034 BNEQ 
01 a2 02 a2 14 28 00036 MOVC3 420, 2(R2), 1(R2) 
04 BC 15 DO 0003C MOVL #21. @LEN 
04 00040 RET 
06 BC 16 DO 00041 2s: MOVL #22, @LEN 
04 00045 RET 


3; Routine Size: 70 bytes, Routine Base: _EDTSCODE + 0030 
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‘ | 
EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific storage 1-se 1984 01:52:1 VAX-11 Bliss-32 V4.0-74 Page 12) E 
104-008 EDISSALO. HEAP - Allocate aenory . 12-80-1382 93:38:08 DLSKSVMGMASTERSLEDT. SRCUSYSVAX.B32:1 . (6) | V 
; q ! § } ZSBTTL ‘EDTSSALO_HEAP = Allocate memory’ : 
: 37 1230 1 GLOBAL ROUTINE EDTSSALO_HEAP ( ! Allocate memory | ; 
; 3? 1 1 : Number of bytes to allocate | : 
: 1 : 1 ADDRESS i Address of allocated space : 
3 1 ; : d= | : 
: 388 1235 1 !46 | ; 
; ¢ : 8 : FUNCTIONAL DESCRIPTION: : 
; 1 § ; Allocate memory. | ; 
: 388 1240 1 | FORMAL PARAMETERS: | 
3 sf } tg : SIZE The number of bytes to allocate : 
: 4 44 i ADDRESS Place to store address of allocated space ; 
: 394 1266} i IMPLICIT INPUTS: ; 
; 395 12467 1! ; 
2 ee Be 
i 398 1250 1 j IMPLICIT OUTPUTS: 
RE OT Bs eden : 
3 49 1254 1 i ROUTINE VALUE: 
; rts: : 2$ : 1 = memory successfully allocated, 0 = out of memory. : 
: 406 1258 1 | SIDE EFFECTS: ; 
; 407 1259 1! 
: 408 1260 1! NONE 
; 409 1261 1! 
; 410 1 $¢ 1 !<- 
: 611 1265 1 
; tig ' re BEGIN | 
> 414 1266 LOCAL | 
; 415 126 GET_VM_STATUS; 
: <i ; $3 IF ((.MEM_USE + ..SIZE) GTR .MEM_LIMIT) THEN RETURN (0); | 
; 419 1271 GET_VM_STATUS = LIBSGET_VM (.SIZE, .ADDRESS); | 
; 4 ’ 7 IF ( NOT .GET_VM_STATUS) THEN RETURN (0); 
: 238 1275 MEM USE = .MEM_USE + ..SIZE; 
426 127% RETORN (1); 
: 425 127 END; ! of routine EDTSS$ALO_HEAP 


009s $0000 -ENTRY EDTSSALO_HEAP, Save R2 ; 1230 
52 00000000" EF 9E 00002 MOVAB MEM_USE, R : 


M 53 
EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific storage 16-Sep AX-11 Bliss-32 V4.0-7 Page 13) 
Oe e800 EDTS$ALO_HEAP = Allocate aenory ° 12-8 Sep 71382 9}: 3¢: om ISKSVMSMASTERS CeoT. Ske SYSVAX.832;1 ° (6) | 
50 6 04 C1 9 : 
« 2 H AL See : 
7 04 AC 7D 0001 ova : ; 
000000006 Q F 18 CALLS @ C1B8cEt y : 
iy 1F BLBC. Os G ty | 73 
06 ec ¢ ADDL2 2 I7E “hen, O8 t 127 
1 b MOVL : es + 1276 
4 RET : 
50 b4 O2A 1$ CLRL = RO : 1277 
002C RET : 


; Routine Size: 45 bytes, Routine Base: _EDTSCODE + 0076 


: 426 1278 #1 


ADDL3 NEM USE, RO ; 1269 
CMPL aLIAL 
BGTR : 
" Fe 1271 
Et 
§ 


nN 5 
16-Sep-19 


0090 ENTRY EDTSSDEA_HEAP, Save nothing 
000000006 o6 ” 05 B CAVES | Bde CIBSSREE_ VM 
8 8 8 BLBS § FREE_VM_STATOS, 18 


EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific storage 4 01:52:1 VAX-11 Bliss-32 V4.0-74 Pa 
V0u-000 EDTSSDEA HEAP Deallocate memory . 14-Sep-1984 93: 4:4 D1 SKSVMSMASTER -CEDT. SRCSSYSVAX.B32; 1 
3 $ } f° ] AZSBTTL "EDTSSDEA_HEAP = Deallocate memory’ 

: 4650 1281 1 GLOBAL ROUTINE EDTSSDEA_HEAP ( ' Deallocate memory 

; 431 1 § 1 ' Number of bytes to deallocate 
.-€ é 1 1 ADDRESS i Address of deallocated space 
3; 6 1284 #1 ) : NOVALUE = 

3; 4 1285 1 

; 455 1 § 1 !e¢ 

3 : : , : } FUNCTIONAL DESCRIPTION: 

; 438 1 Hy 1! Deallocate memory. 

; 439 1290 1! 

; 440 1291 1 ! FORMAL PARAMETERS: 

: 6441 1 3 1! 

3 re : S : SIZE The number of bytes to deallocate 

3 rer: ; 95 ! ADDRESS Place to store address of deallocated space 

3 6446 1 3 1 ! IMPLICIT INPUTS: 

: 447 1298 1! 

; 448 1299 1! NONE 

: 449 1300 1! 

: 450 1301 1 ! IMPLICIT OUTPUTS: 

: 6451 1 0 1! 

3 $26 1303 1! NONE 

3; 45 1304 1! 

: 454 1305 1 ! ROUTINE VALUE: 

3; «455 1 O6 1! 

; 456 1307 1! NONE 

3; 457 1308 1! 

; 458 1309 1 ! SIDE EFFECTS: 

3; 459 1310 1! 

: 460 1311 1! Signals on error. 

3 1 \¢ 1! 

3 13135 1 !<- 

3 1314 «1 

: 1315 BEGIN 

3 1316 

3 1317 LOCAL 

: : 18 FREE_VM_STATUS; 

$ ' FREE_VM_STATUS = LIBSFREE_VM (.SIZE, .ADDRESS); 

3 \ § IF ( NOT .FREE_VM_STATUS) THEN SIGNAL_STOP (.FREE_VM_STATUS); 

3 1324 MEM_USE = .MEM_USE - ..SIZE; 

: 1325 ASSERT (.MEM_USE GEQ 0); 

: 1326 END; ! of routine EDTS$DEA_HEAP 
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vou=00 * —EDTERDEXMMcar*’DeautState memory « “vores WESSoct94s QU:S2ELE  YIBedAGhLetGRECESN°G%4Ssysver.ese.1°% cf 


PUSH FREE VM _ STATUS 
CALLS af at 
pa 2s 


Q 
CALLS ae EDTSSINTER aERR 
RET 


: 1324 
; 1338 
; 1326 
; *outine Size: 43 bytes, Routine Base: _EDTSCODE + O0A3 


; 476 1327 1 


—— ’ 


EDTSSYSVAX YSVAX = VAX/VMS system specific storage 1b-5e Sep-1 VAX-11 Bliss-32 V e 16) 
TO ae800 EH -ALLHEAP = Deailocate all memory ° ~307} 82 9}: 3¢: 8 DISK KSVMSMASTER: ch +°sacsvsvax. B32;1 then (8) | 
; 4? XSBTTL "EDTSSDEA_ALLHEAP = Deallocate all memory’ | 
Ps } 
; 4 1 GLOBAL ROUTINE EDTSSDEA_ALLHEAP ! Deallocate all memory 
; 4 1 : NOVALUE = 
a. @ 1 | 
; 4 1 !e4 

3 4 4 FUNCTIONAL DESCRIPTION: | 
; 2 : Deallocate all memory allocated by calls to LIBSGET_VM . 

: 6 1 | FORMAL PARAMETERS: 

; 489 1 / 

; 4 1 i NONE 

; 691 1 / 

; 43 IMPLICIT INPUTS: 

: 694 1 | EDTSSA_FST_AVLN 

: 495 1 EDTSSA_ FST “SCRPTR 

; 496 1/ EDTS$$A_BUF -LST 

: 49 1 EDT SSA TRN~TBL 

: 498 1: EDT$$A_US_ENT 

; $99 EDTSS$A_US_TXT 

: 01 IMPLICIT OUTPUTS: 

; 08 1 EDTS$A_FST_AVLN 

; 504 1 EDTS$$A_FST-SCRPTR 

: 505 EDTS$$A_BUF -LST 

; $$ 1 | ROUTINE VALUE: 

; 508 13 

; 509 1 / NONE 

; 510 1 i 

: 511 1 | SIDE EFFECTS: 

3 1g 1! 

3 1 1 i Signals on error. 

3 14 1 i 

3 15 1 i- 

3 1 1 

; 4 BEGIN 

: 519 EXTERNAL | ROUTINE 

5 0 FREE1_ DX | 
; 1 EDISSCAN. RDEF; ! Cancel a key definition | 
i 358 EXTERNA | 
° 4 EDTSSA ans } 
: 525 EDTSSA~ FSt- “SCRPTR, 
; $ EDTSSA_BUF LST, | 
; EDTS$A_TRN-TBL : VECTOR, | 
; 3 EDTS$A_US_ENT : VECTOR, 

3 EDT$SA_US-TXT : VECTOR; 
; $31 LOC | 
; ¢ NEW_PTR : REF SCREEN_LINE, 
; NEW-BUF : REF TBCB_BCOCK, 


EDTSSYSVAX DISSYSVAX = VAX/VMS system specific storage 1b-se $ep-1984 VAX-11 Bliss- 
104-000 EDT $$0eA ~ALLHEAP = Deal locate all memory , aah hi 93: 38: ig DISKSVMSMASTE 
5 ‘ GET_VM_STATUS; 

'¢ 

_Deallocate all buffer headers 
re NEW_BUF = .EDTSSA_BUF _LST; 
4 3 WHILE (.NEW_BUF NEQA 0) DO 
ti 92 ye NEW -BUF CTBCB at; EN) + TBCB_SIZE; 

= om 

45 95 EDTSSA_BUF -L Pe NEG .8 rth Sem NEXT Baur de: 
a6 36 EDTSSDEA. HEAP. (Ei 
4 9 NEW_BUF = .EDTSSA Ngutt EW. buF 
48 a8 END; 
49 
50 00 + 
2) 4 i ; Deallocate memory used for screen data structure. 
sf of 3 NEW_PTR = .EDTSSA_FST_SCRPTR; 
32 05 WHILE (. Neu PTR NEQA 0) DO 
25 $9 EDTSSA_FST_SCRPTR = .NEW_PTR CSCR_NXT_LINEJ; 
58 08 EDTSSDEA_HEAP (BREF {SCRE SIZE), NEW_PTR); 
59 09 NEW_PTR = .EDTSSA_FST_SCRPTR; 


WHILE (. in PTR NEQA 0) DO 


EDTSSA_FST_AVLN = .NEW_PTR CSCR_NXT_ INE}; 
EDTSSDEA ~HEAP cwer (SCR_SIZE), NEW_PTR); 
NEW_ -EDTSSA_FST_AVCN; 


—o a St a 


UMEUN —O DONO UE WN" OOONOUS WN —O 


'¢ 
j suet sesate virtual storage allocated for entities 


INCR EXT NUM FROM 0 TO 3 DO 
BEG! 


LEN = CHSRCHAR (.EDT$SA_US_ENT C.ENT NUM) 
Fe cSSBeA_ MEAP (HREF (.LEN 71), EDTSSA_US “int C.ENT_NUM)); 


SSIS TSAO RAN VSSSLFSFSRLS 


umn rer NUM FROM 0 TO 1 DO 


LEN = CHSRCHAR (.EDT$SA_US 1 C.TEXT_NUM]); 
EDISSDEA, HEAP (ZREF (.LEN * 1), EDTSS$A_US_TKT C.TEXT_NUM)) ; 


'¢ 
i joer tecate virtual storage reserved for the key definitions 


SV 
EA 
END? 
NEW_PTR = .EDTSSA_FST_AVLN; 


a em a a ad od 8 od = = SS = 4 = 2 


y oP at at at at nt ot ot ot et at et et at a kh eh ek 


Ly ea Sah alah al ah ah Ab Ab Ab Ah Ab Ab dh Ab bh dh db bh dh bb bb db 4b-4b 4b 4b 4b 4h 4h 4h Ah Ab Ab Ah ah Ah ah Ah Ae 


Sseesesres 
—OoO@ 


an 


INCR TBL_PTR FROM 0 TO K_KPAD_HASHSIZ = 1 DO 


é 
EDTSSYSVAX DTISSYSVAX = VAX/VMS system specific storage ies Sep-1984 VAX-11 Bliss-32 V 
the EDTSEDEA-A ALLHEAP <= Deallocate all memory 9 14-Sep ety fi 9: 3¢: 18 DISKSVMSMASTER: tt Bt ORC ISYSVAK. B32;1 
5 3 1ee8 ; BEGIN 
; 59% 144 WHILE (.EDTSSA_TRN_TBL C.TBL_PTR] NEQA 0) DO 
: 595 1445 4 BEGIN i le ° 
; 36 1446 4 
; 59 1447 & LOCAL 
; 98 1648 4 KEY_PTR : REF BLOCK C, BYTE] FIELD (KEY_DEF_FIELD); 
: 600 1450 4 KEY_PTR = .EDTS$A_TRN_TBL C.TBL_PTR; 
; 601 1ae$ 4 EDT rssc SCAN_KDEF (.KEY_PTR bhi DEF _KEY)); 
; 60 14 g END 
: 14 
= @ 1454 END; 
; 605 1455 
; 606 1456 END; ! of routine EDTSS$DEA_ALLHEAP 
EXTRN STRSEREEI Dx, EDTSSCAN, KDEF 
-EXTRN EDTSSA 
SEXTRN EDTSSA FST ~SCRP 
-EXTRN EDTS$$A~BUF-LST, Torssa TRN_TBL 
EXTRN EDTSSA_US_ENT, EDTSS$A_OS_TRT 
007¢ 00000 .ENTRY EDTSSDEA_ALLHEAP, Save R2,R3,R4,R5,R6 
56 000000006 00 9€ 9002 MOVAB EDTS$$A ABOF ist. R6 
55 000000006 00 9€ 0000 MOVAB EDTS$A_FST RS 
54 000000006 00 9€ 00010 MOVAB EDTS$S$A"FST =schei. RG 
53 BB AF YE 00017 MOV EDTSSDEA_HEAP 
5E 10 Ce 00018 SUBL2 #16, SP ~ 
04 A 66 D OO1E 1$: MOVL EDT FEsA BUF _LST, NEW_BUF 
5 04 Ar b9 00 MOVL # NEW_BUF, RO 
18 13 000 6 BEQL 
08 AE 2c a0 9A 000 MOVZBL 44(RO), LEN 
08 AE 20 C0 0020 ADDL L 
66 26 AO 00 00031 VL 38(RO), EDT$S$A_BUF_LST 
04 AE 3 0035 PUSHAB NEW_BUF 
OC AE 9F 000 PUSHAB LEN 
63 0 re 0038 CALLS #2, EDTSSDEA_HEAP 
DE 1 90 : BRB 1 
oc A 64 D0 00040 28: MOVL  EDTS$A_FST_SCRPTR, NEW_PTR 
5 0c AE OD re MOVL EW , RO 
131 48 BEQL = 3 
64 4 Ad p 4A MOVL 4 (RO), EDTS$$A_FST_SCRPTR 
C AE 9F O004E PUSHAB NEW_PTR 
04 AE O£ po 31 VL #147 ~4(SP) 
06 AE OF 3 PUSHAB 4(SP) 
63 0 FB CALLS #2, EDTSSDEA_HEAP 
e3 1 8 BRB 2 
OC A 65 D D 3$: MOVL EDTSSA_FST_AVLN, NEW_PTR 
5 oc A p 61 MOVL NEW_PTR, RO 
1 3 BEQL. 4 
65 4 A p MOVL  4(RO), EDTSSA_FST_AVLN 
C AE OF PUSHAB NEW_PTR 
04 AE OE 0 $ VL #147 4(SP) 
04 AE F PUSHAB 4(SP) 
63 02 FB 0007 CALLS #2, EDTSSDEA_HEAP 


Page 
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; 607 1457 1 


F 56 
EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific storage 16-Sep-1984 VAX-11 Bliss-32 V e 19° 
the EDTSSDEA_ALLHEAP <= Desilocate all memory ° 18-8 Sep ets 7 9}: 3¢: ' DISKSVMSMASTER: as +°sheSsysvax. 832;1 nu“ (8) | 
§ 11 78 BA 3$ : 1418 
D4 7A 4$: CLAL ENT NUM 3 14 
50 eeteed * ae }; 7C 5$: MOVAL €DTS Hie -US. rca NUM], RO 3: 1427 
ae ; BD 9 PuSAee A + 1428 
06 AE Oc AE 1 1 ADDL #1, LEN, 4(SP) : 
04 AE OF PUSHAB 4(§P) : 
$3 Fe 94 CALLS ne. EDT SSDEA a: : 
E1 F 97 AOBLEQ #5, ENT : 1693 
D4 98 CLRL TEXT wa 3 1431 
50 000000006004 pe 1) 6$: MOVAL EDTSSA_US_TXTCTEXT_NUMJ, RO 3 1433 
08 AE 00 4 A A MOVZBL + ant LEN : | 
DD AA PUSH R + 1434 
04 AE OC AE 01 ¢ A ADDL #1, LEN, 4(SP) : 
04 AE F 0008 PUSHAB 4(§P) : 
$3 Fe 008 CALLS fe, EDT $SDEA_ HEAP : 
1 2 1 F3 00088 AOBLEQ #1, TEXT ; 6$ : 1431 
é D4 0008C CLRL TBL_PTR ~ + 1441 
50 eoooooeoeto}< 0 BoeF 7$: nov. Ea TeeA., TRN_TBLCTBL_PTRI, RO 3 1444 
7E 04 ad 3C 000C8 MOVZ2WL 4(KEY_PTR), -(SP) : 1451 
000000006 00 01 FB BoC CALL #1, EDTSSCAN_KDEF : 
9 11 000D BRB 7$ 1 1444 
—1 52 000000C6 F F3 44444 8$: AOBLEQ #198, TBL_PTR, 7$ 3 1441 
04 000 RET : 1456 
; Routine Size: 222 bytes, Routine Base: _EDTSCODE + OOCE 


corssy VAX = VAX/VMS System specific storage ~$00-1984 9: 3: 18 VAX-11 Bliss-32 


encossecons 

> 4 a 4 

wn 
SSELESSS 


MEUM —OOONA NEW "OOOO 
, al el hh et te ee : 
SNe 


WN — SO OONOUS wn 
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LESRALLSSELES 


a a a ee ee a ee ed ed ed 
EDDC nt st nr i i a ed a od = 


3; Routine Size: 


Dk ek le ek ee ek eh elk ke ek ee ke ek de ek et ke ak et nt et tt 
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= take a timer AST for the WORKING mess i -Sep-1 


ZSBTTL bor - take a timer AST for the WORKING qnpseeee 
a Ee louie AST ! Take a timer AST for the WORKING message 


- 


'o¢ 


FUNCTIONAL DESCRIPTION: 
Take a timer AST for the WORKING message. 
FORMAL PARAMETERS: 
NONE 
7 IMPLICIT INPUTS: 
WORK _MESSAGE_RUNNING 
IMPLICIT OUTPUTS: 
EDTS$G_SECOND 
ROUTINE VALUE: 
NONE 
SIZE EFFECTS: 
g Arranges to print the WORKING message on the screen. 
le 
BEGIN 
— MESSAGE RUNNING 


SiN 
gor $$G_SE ef = 1; 
TIMR DAYTIM = DEL_TIME, ASTADR = WORKAST, REQIDT = EDTS$$G_WORKCOUNT); 


me 
esc om 
eer 


END; ' of routine WORKAST 


-EXTRN SYSSSETIMR 
0098 $008 WORKAST:.WORD Save nothin 


1F 00000000' EF E 02 BLBC WORK MESSAGE_RUNNING, 1$ 

000000006 00 1 pO 000 MOVL 56 GORE G SECO COND 

600000096 0 oF 10 PUSHAB pots 

F AF OF 18 PUSHAB 
00000000' cf 9F 0001 PUSHAB DEL Tike 
E D4 OO0O1F CLRL = 
000000006 00 04 F 4 CALLS #4, SYSSSETIMR 
0 8 1$: RET 


41 bytes, Routine Base: _EDTSCODE + O1AC 
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VAX = VAX/VMS system specific storage 1b-se Sep-1 VAX-11 Bliss-32 V 

ART _UKINGHSG = ’Enttiote the “working” t iecsepe19Re $2:des68 — DrSKSVMSMASTERSCED 

ZSBTTL “EDTSSSTART_WKINGMSG = initiate the ‘working’ timer’ 

GLOBAL ROUTINE EDTSSSTART_WKINGMSG 
: NOVALUE = 


4 
rw 


: 


— 


men 
oo 
n~< 


! Initiate the ‘‘working’’ timer 
tee 
FUNCTIONAL DESCRIPTION: 


Start the timer which will cause the ‘‘working’’ message 
to print occasionally until it is cancelled. 


i 

i 

i 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

i DEL_TIME 

i WORRAST 

WORK _MESSAGE_RUNNING 
IMPLICIT OUTPUTS: 

i EDTS$$G WORK COUNT 

i WORKING_EFN 

WORK _MESSAGE_RUNNING 
ROUTINE VALUE: 

NONE 

SIDE EFFECTS: 

i 

i 

i 
ie 


Allocates an event flag. 
Signals any errors. 


BEGIN 
LOCAL 


GETEF STATUS 
SETIMR_STATUS; 


'¢ 
: If the ‘working’’ message is already running, don't start it again. 


IF .WORK_MESSAGE_ RUNNING THEN RETURN; 
GETEF_STATUS = LIBSGET_EF (WORKING_EFN); 
IF ( NOT .GETEF_STATUS) THEN SIGNAL_STOP (.GETEF _STATUS); 


SETIMR_ STATUS = $SETIMR (EFN = .WORKING_EFN, DAYTIM = DEL_TIME, ASTADR 
REGIDT = EDT$$G_WORKCOUNT); 


me ee em ee ed ad od od od wd ed 


MEW "CO OOBNOAUS WHO OS® 


DINMTVIN E & &  E 
POR IPOPOPOPOPOPPORINOPOPIPOPNINIDD 2 tt 0 tt 


= WORKAST, 


ms Pye pee 7 


| 
290 185 


| 


1 °sRCSSYSVAX. 832; i‘ 


/ 4 5 | 
UKINGMSG. Sei tiate the Mecekiae” t 1b-Sen-1984 Pye ge mGAlSfea creo E sacSsvsvax.e32:1 race | 


IF ( NOT .SETIMR_STATUS) THEN SIGNAL_STOP (.SETIMR_STATUS); 


EDTS$G_WORKCOUNT = 0; | 
WORK. MESSAGE “RUNNING =z 1; | 


a 


a 


STA Sk 


OoCOnOS ww 


sro La 


—) —) —) ws 
ounmu™m >= 


! of routine EDTSSSTART_WKINGMSG 


001¢ 000 ENTRY EDTSSSTART_WKINGMSG, Save R2,R3,R4 ; 1501 
900 9 6 99 3 0 VAB EDTS$$G WORR OUNT, R&4 : 
G E MOVAB LIBS$S R 
000000 Ef 44 019 MOVAB WORK SMES SAGE E_RUNNING, Re 
2 f 01 BLBS - WORK TMESSAGE- “RUNNING, 3 1547 
FC Ad 9F OOOIA PUSHAB WORKING EFN 1549 
000000006 00 1 re 9010 CALLS #1, LIBSGET 
5 0 €8 00024 BLOBS  GETEF_STATUS, 1$ 1551 
0 DD 00027 PUSHL GETEF STATUS 
63 1 FB 00029 CALLS , LIBSST 
4 DD 0002C 1$: SHL 40 
A6 AF OF O002E WORKAST 
FG Ag 9F 00031 PUSHAB DEL TIME 
FC «Ad OD 900 PUSHL WORRING EFN 
000000006 00 04 FB 0037 CALLS #4, SYSSSETIMR 
05 0 €8 0003E LBS § SETIMR STATUS, 2$ 1556 
50 DD 00041 PUSHL SETIMR™STATUS 
63 01 FB 00043 CALLS #1, LIB$STOP 
64 D4 00046 2$: CLRL EDTS$6 WORK COUN 1558 
62 01 DO 00048 MOVL #1, WORK OME SSAGE RUNNING 1559 
04 00048 3$: RET 1560 


; Routine Size: 76 bytes, Routine Base: _EDTSCODE + 01D5 


3; 713 
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K 6 
EDTSSYSVAX ED SVAX = VAX/VMS system specific 4) orage 16-Sep-1984 01:52:1 VA 
10a 000 ED TOP_WKINGMSG - tancel the" “work Ing’ "tine 12286871382 93:32:18 I 


X-11 Bliss-32_ V4.0-7 % 
SKSVMSMASTER: cED 7 osRe SYSVAX.832; . a 


eu 
w~< 


ZSBTTL "EDTSSSTOP_WKINGMSG = cancel the ‘working’ timer’ 
GLOBAL ROUTINE EDTSSSTOP_WKINGMSG ! Cancel the ‘working’ timer 
: NOVALUE = 


— se 


VMEWN —OODONAOULS WN "OVDOnNOu 


'¢ 


14 
FUNCTIONAL DESCRIPTION: 


Cancel the ‘working’ timer. The ‘working’ message will not print 
until it is initiated again. Also, erase the working message. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


i Pi i i ii Nin Nn in nn Hy Dn Din Sn Dit it My i I Sy i i i | 
WN —OOOnNOusS 


Wr—OO°® UW Fe 


: 1 1 

3 1 1 

3 1 1 

; 1 1 

: 1 1 

; 1 1 

: 1 1 

; 1 1 

3 1 1: 

: 1 1 

: 1 1 i 

r 1 1 

3 1 1 i 

: 1 1 / 

3 1 1 i 

3 1 1 

3 1 1 i 

3 15 1 WORKING E 

; 15 1 EDTS$G GORKC OWN 

; 15 ii WORK_MESSAG UNNING 

; I ! epTsSe SME SAGE LT LINE 

; 13 : : IMPLICIT OUTPUTS: 

; 739 15 § 1! WORK _MESSAGE_RUNNING 

3; 740 3 1} 

3: 741 1588 1 | ROUTINE VALUE: 

3 742 1589 1! 

3; 743 1590 1! NONE 

3 744 1591 1! 

3; «745 1236 1 ' SIDE EFFECTS: 

3: 746 1593 1: 

3: 747 1594 1! Deallocates an event flag. 

: 748 1595 1! Repositions the cursor to beginning of message Line 
; 749 1338 1: 

; 750 1597 1 i- 

: 751 1598 1 

3 P36 1599 BEGIN 

tas 1600 

: 754 1601 LOCAL 

3 99 1oR¢ FORMAT_ROUTINE, 

3; 756 160 FREEEF STATUS, 

; 757 1604 CANTIM~STATUS; 

3 P38 1605 

a> a 1 '¢ 

: 760 160 i If the ‘working’ message is not running, do nothing. 
: 761 1608 ie 

; 166 1609 

3 re? 1919 IF ( NOT .WORK_MESSAGE_RUNNING) THEN RETURN; 
3; 765 1e16 WORK_MESSAGE RUNNING = 0; 

; 166 oF CANTIM_STATUS = SCANTIM (REQIDT = EDT$$G _WORKCOUNT) ; 
3 ros 191? IF ( NOT .CANTIM_STATUS) THEN SIGNAL_STOP (.CANTIM_STATUS); 
: 770 1819 FREEEF_STATUS = LIBSFREE_EF (WORKING_EFN); 
: 771 1618 


ese 


'¢ 
i If “working was prsaees then reposition the cursor to the Lleft-most 
position of the prompt 


IF (.EDT$$G_WORKCOUNT NEQ 0) 
THEN 


POAOPAOAASAAAAAO 


nee 


BEGIN 
EDTSSSC ge ( EDTS$G_MESSAGE_LINE + 1, 0); 
poTSsour FR TBUF (); 


EDTSSA_FMT yy ~FORMAT_ROUT INE; 
gorsse. =SECOND = 0; 


ss 8 a a = ss a a 2 a 4 mn 


rSSSSSS5 


DONA VNE WN O OONAOUS WN“ OOOVNOUFSWN—0O0 ee 


==NNNNVUNAINIHAPININININININIWNININI FPnononononone9ny 


! of routine EDTSSSTOP_WKINGMSG 


-EXTRN SYSSCANTIM 


O3FC 00000 ENTRY EDTSSSTOP_ WKINGMSG, Save R2,R3,R4,R5,R6,R7,-; 
59 000000006 00 9€ 9002 MOVAB EDTS$SOUT_FMTBUF, RO 
38 900 9906 0 9€ 000 MOVAB EDT $$5¢ POSCSIF. RB 
00000006 00 9€ 0019 MOVAB EDT$$G_MESSAGE_LINE, R7 
36 0000006 00 9E 0001 MOVAB LIBSSTOP, R 
000' EF 9€ OO1E MOVAB WORK MESSAGE RUNNING, RS 
34 0 0 G 9E 99 MOVAB ED ISSA. FMT WRRUT, 
3 G 43 EDT$$G WORRC 
60 65 €9 000 BLBC  WORK_MESSAGE ORUNNING, 5$ 
4 D4 0 CLRL WORK "MESSAGE ~RUNNING 
5 D4 CLRL SPY 
53 DD A PUSHL RS 
000000006 00 FB ¢ CALLS #2, SYSSCANTIM 
05 E i" BLBS § CANTIM_STATUS, 1$ 
DD 46 PUSHL CANTIM™STATUS 
66 01 FB CALLS #1, LIBSSTOP 
FC «6AS) «(OF 00048 18 PUSHAB WORKING EFN 
000000006 00 1 FB 4 CALLS #1, LIBSFREE_EF 
6 E 2 BLBS FREEEF_STATUS, 2$ 
dD PUSHL FREEEF-STATUS 


DISSYSVAX = VAX/VMS system specific stor ibes6 Sep-1984 VAX=-11 ss-32 V4.0-74 P 5 
DTSSSTOP_WKINGMSG = Senet the workin oe tine 12-808- 138 93: 32: 18 DISK$V nen STER:CE 157 sac SSYSVAX.032;1 age 493 | 
$) IF ( NOT .FREEEF STATUS) THEN SIGNAL_STOP (.FREEEF_STATUS); 
6 '¢ 
? Erase the working message when it is stopped if not already done 
6 FORMAT_ROUTINE = .EDTS$A_FMT_WRRUT; 
? EDTSSA_ FMT_WRRUT = EDTSSTI _WRSTR; 
6 IF (.EDT$S$G_WORKCOUNT) 
6 THEN 
BEGIN 
EDTSSSC_POSCSIF (.EDTSS$G_MESSAGE_LINE + 1, 0); 
EDTSS$SC_ERATOEOL (); 
EDTSSOUT_FMTBUF (); 
END; 
3 


Pete Se Se Se Se Se Se Sete Se Se Se Se Ge Se Se Se Se Se Ge 


| 
| 


1564 


| 
6 
EDTSSYSVAX VAY = VAX/VMS system specific storage 16 “$ 30 “19 VAX-11 Bliss-32 V4.0-74 Page 26 
104-000 OP WKINGMSC - tancel the ‘work ingy "tine 14-Sep 198 93: 3g: ig DL SKSVMSMASTERSCEDT. SRCISYSVAX.B32; 1 . af} 
es 66 2 2s move EDESBACFAT WRRUT FORMAT_ROUTINE : 16 4 | 
64 000000006 9 a MOVAB EDTSSTI_WRSTR, Re gfOT SSA FMT_WRRUT ; 1625 : 
3 $ E BLBC = EDT$$G_@ORKCOUN : 1627 : 
: D4 A CLRL_ =(SP) ; 1630 : 
7€ 67 C1 $ ADDL3 #1, EDT$$G_MESSAGE_LINE, -(SP) : : 
68 FB CALLS #2, EDTSSSC_POSCSIF : : 
000000006 00 FB 0007 CALLS #0, EDTS$SC~ERATOEOL : 1631 ; 
69 ¢ 7A CALLS # EDTSSOUT FMTBUF : 1632 : 
D 7D 38: TSTL EDT $$G_WORKCOUNT : 1640 : 
rae 7F BEQL «= 4$ ; ; 
: D4 : CLRL_ =(SP) > 1643 
7E 67 C1 ADDL3 #1, EDT$$G_MESSAGE_LINE, -(SP) ; 
68 i: 8 CALLS ae, EDTS$SC_POSCSIF ; 
69 FB A CALLS #0, EDTSSOUT_FMTBUF 3 1644 
4 DO 0008D 4$: MOVL FORMAT_ROUTINE, EDTSSA_FMT_WRRUT > 1647 
000000006 0 pA 090 CLRL  EDT$$G~SECOND > 1648 
4 00096 5$: nel : 1649 


; Routine Size: 151 bytes, Routine Base: _EDTSCODE + 0221 


; 803 1650 1 


ee ’ 


E VAX EDTSSYSVAX = VAX/VMS system specific storage S$ep-1984 01:52:1 VAX-11 Bliss-32 V age 27 

81800 EDT BE TOSTR = print a systes message “ 18-Sep-1984 95:32:18 DISK SvMSh MASTER: cto + sRCSsvSvAX. B32; iP 9 435 

; 05 16 } ZSBTTL ‘EDTSSMSG_TOSTR = print a system message’ | ; 
: $$ 18 1 GLOBAL ROUTINE EDTSSMSG_TOSTR ( ! Print a system message | ; 
: 80 1654 1 mess NUM i message number : 
; 809 1695 | : ROVALUE = | 
: 811 16 , 1 !e¢ | 
; \¢ 1? 8 : FUNCTIONAL DESCRIPTION: | : 
; 1 1990 ! ; Print a system message, given its message number. | : 
; 16 166 | FORMAL PARAMETERS: | 
18 1664 i MESS_NUM The number of the message to print ; 
: 8 0 1666 i IMPLICIT INPUTS: : 
; 821 1667 1} ; 
Oo Otc ook 2 
> B26 1890 1! IMPLICIT OUTPUTS: : 
3 $ 5 1671 1! : 
b care ts poe 8 : 
: 828 1674 1 | ROUTINE VALUE: : 
; 829 1675 1! 3 
PEt heres ge Sees : 
: Be 1678 } SIDE EFFECTS: 
:; 8 1680 1: Prints a message on the terminal. ; 
; 835 1681 1! 3 
; 836 lose 1 !-- : 
3; 837 1683 1 3 
: 838 1684 BEGIN 3 
: 826 1686 LOCAL 
: 841 168? MSGBUF : BLOCK CCHSALLOCATION (80)], 
: Hk 1688 MSGDESC : VECTOR C2), 
| Bee ie penene 
> 845 1691 MSGDESC £03 = 80: 
; 548 1998 GDESC = MSGB 
3 7 169 See TasG (MSGID = cae NUM, MSGLEN = MSGLEN, BUFADR = MSGDESC, FLAGS = 1); 
3 Bes 1694 EDTSSFMT_STR (MSGBUF , TMSGLEN<O, 16>); 
; 1695 END; ! of routine EDTSSMSG_TOSTR 


~-EXTRN SYSSGETMSG 


0000 00000 -ENTRY ED TSSRSG_ TOSTR, Save nothing : 1653 

5E AG AE 9E 00002 MOVAB 38 “Sp ; 
04 AE 50 BF 9A 00006 MOVZBL mséD DESC : 1691 
08 AE 0c AE E MOVAB sat MSGDESC+4 > 169 
7E 01 70 0001 mova -_o#1,_ -( §P) : 169 

C AE OOF 901 PUSHAB MSGDESC ; 

C AE 9F 00016 PUSHAB MSGLEN ; 


Woesb00. EDISSMSG, TOSTR \ peint a systen messace om ibese opx1o8e 95:32:18 Scbungnas at Bi SRCISYSVAX.B32;1/ 9% «198 


04 a DD 
i 

C 

10 Me F 
02 FB 000 

04 000 

; Routine Size: 49 bytes, Routine Base: _EDTSCODE + 0288 


CALLS rie sVSSGETHSG 


MOVZWL mS6L EN, =(SP) 
é SHAB mS CBU 
CALLS #2, EDTSSFMT_STR 


19 SH 
100000006 90 PUSHL 


000000006 00 


; £20 ion 1 
; 851 1697 1 !<BLF/PAGE> 


1694 


: 1695 


EDTSSYSVAX EDTSSYSVAX = VAX/VMS system specific storage bse Sep-1984 VAX-11 Bliss-32 V 
104-000 EDTSEMSG TOSTA - print a systes message . Sep-1986 9}: 3¢: ig DISKSVMSMASTER: cto 
: B36 1838 1 END ! of module EDT$SYSVAX 
: 855 1 ‘ ELUDOM 
-EXTRN LIBSSTOP 
; PSECT SUMMARY 
; Name Bytes Attributes 
; -EDTSDATA Sie NOVEC, WRT, RD WORN NOSHR, LCL, REL, CON Pig -AL ents} 
> <EDTSCODE 45 NOVEC,NOWRT, RD, EX E: SHR, LCL, REL, CON, PIC,ALIGN(2) 
‘ Library Statistics 
; susanaes SyGhel§ ocoecces Pages Processing 
; File Total Loaded Percent Mapped Time 
; $DUA28:[SYSLIBI TARLE L32;1 977 4 581 :02. 
; -} SDUACB: CEDT. SRCJE 3h385 i 37 ‘b 49 : i 
; _$255$DUA28:CEDT.SRCIP 231 2 1 5 :00. 
; ~$255$DUA28:CEDT.SRC psects. (52 L32;1 34 6 1 7 :00.2 


COMMAND QUALIFIERS 


gd Fe 745 obce$. 4 + 644 data bytes 
Elapsed Time: $23. 4 

nes/CPU Min: ia 
Pome Ba 


4 Used: 153 B231 
Compilation Complete 


| 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:SYSVAX/OBJ=OBJ$:SYSVAX MSRC$:SYSVAX.B32/UPDATE=(ENH$: SYSVAX) 
| 
| 
| 


+ °sReSsvsvax.32:1 99 a? 


<m 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 
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